home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcmag / vol7n21.arc / LOG.BAS < prev    next >
BASIC Source File  |  1988-09-28  |  10KB  |  132 lines
  1. 100 REM - BASIC PROGRAM TO CREATE LOG.COM     
  2. 110 CLS:PRINT "Creating LOG.COM     ": OPEN "LOG.COM     " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   113
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   113 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "LOG.COM      created successfully": SYSTEM
  17. 260 PRINT: PRINT "LOG.COM      is not valid!": END
  18. 270 DATA E9,  6,  5, 4C, 4F, 47, 20, 31, 2E, 30, 20, 28, 63, 29, 20, 31,   3AA
  19. 280 DATA 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69,   550
  20. 290 DATA 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20,   4BB
  21. 300 DATA 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 4A, 65, 66, 66, 20,   605
  22. 310 DATA 50, 72, 6F, 73, 69, 73, 65,  D,  A, 24, 1A,  0,  0,  0,  0,  0,   33A
  23. 320 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  24. 330 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 3D,  0, 4B,    88
  25. 340 DATA 75,  8, 2E, 83, 3E, 53,  1,  9, 72,  5, 2E, FF, 2E, 4F,  1, FB,   4E6
  26. 350 DATA 50, 53, 51, 52, 56, 57, 55, 1E,  6, 53, 52, 1E,  6,  E, 1F, FF,   461
  27. 360 DATA  6, 53,  1, E8, E2,  3, BA, 8D,  5, E8, 68,  1, 8B, 36, 53,  1,   5D9
  28. 370 DATA 4E, D1, E6, D1, E6, 81, C6, 5F,  6, 8B, FE, 83, C7,  4, A0, 53,   932
  29. 380 DATA  1, FE, C8, E8, A6,  1, E8, 99,  1, C7,  6, 55,  1,  1,  0,  7,   603
  30. 390 DATA 1F, 5A, 5B,  6, 53, 1E,  7, 8B, FA, 32, C0, B9, 80,  0, FC, F2,   6F0
  31. 400 DATA AE, BB, 7F,  0, 2B, D9, 8B, CB, 8B, F7, 83, EE,  2, FD, AC, 3C,   91C
  32. 410 DATA 5C, 74,  7, 3C, 3A, 74,  3, E2, F5, 4E, 83, C6,  2, 2B, D9, 8B,   6C3
  33. 420 DATA CB, FC,  E,  7, B0,  D, 2E, 8A, 16, 53,  1, F6, E2, 8B, F8, 81,   797
  34. 430 DATA C7, DD,  5, 8A, C1, AA, AC, 3C, 61, 72,  6, 3C, 7A, 77,  2, 24,   6B2
  35. 440 DATA DF, AA, E2, F2, 5B,  7, 26, C5, 77,  2, 8A,  C, 32, ED, 41,  E,   727
  36. 450 DATA  7, BF, AF,  6, F3, A4,  7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 50,   608
  37. 460 DATA 53, 51, 52, 56, 57, 55, 1E,  6, 2E, 89, 1E, 4B,  1, 2E, 8B, 1E,   414
  38. 470 DATA 53,  1, 4B, D1, E3, FA, 2E, 8C, 97, 87,  6, 2E, 89, A7, 9B,  6,   72A
  39. 480 DATA 2E, 8B, 1E, 4B,  1, 9C, 2E, FF, 1E, 4F,  1, 9F, 2E, 8B, 1E, 53,   523
  40. 490 DATA  1, 4B, D1, E3, FA, 2E, 8E, 97, 87,  6, 2E, 8B, A7, 9B,  6, FB,   7D6
  41. 500 DATA 9E,  7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 9C, 50, 53, 51, 52, 56,   57C
  42. 510 DATA 57, 55, 1E,  6,  E, 1F, 81, 3E, 4D,  1,  A,  3, 72, 28, 1E, B4,   383
  43. 520 DATA 59, 33, DB, CD, 21, 2E, 8C, 1E, 63,  1, 1F, A3, 57,  1, 89, 1E,   552
  44. 530 DATA 59,  1, 89,  E, 5B,  1, 89, 16, 5D,  1, 89, 36, 5F,  1, 89, 3E,   430
  45. 540 DATA 61,  1, 8C,  6, 65,  1, FF,  E, 53,  1, E8, BB,  2, BA, 8D,  5,   5AC
  46. 550 DATA E8, 41,  0, 8B, 36, 53,  1, 46, D1, E6, D1, E6, 81, C6, 5F,  6,   79E
  47. 560 DATA 8B, FE, 83, EF,  4, A0, 53,  1, FE, C0, E8, 7F,  0, E8, 72,  0,   872
  48. 570 DATA C7,  6, 55,  1,  0,  0, 81, 3E, 4D,  1,  A,  3, 72,  8, B8,  A,   379
  49. 580 DATA 5D, BA, 57,  1, CD, 21,  7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 9D,   5A0
  50. 590 DATA CF,  0,  0,  0, 89, 16,  1,  3, B8,  2, 3D, CD, 21, 72, 21, A3,   48D
  51. 600 DATA 4B,  1, 8B, D8, B8,  2, 42, 33, C9, 33, D2, CD, 21, 80, 3E,  3,   65B
  52. 610 DATA  3,  0, 75,  A, FE,  6,  3,  3, E8, CE,  0, E8,  2,  2, F8, C3,   5E9
  53. 620 DATA B4, 3C, 33, C9, 8B, 16,  1,  3, CD, 21, 72, F3, A3, 4B,  1, 8B,   65E
  54. 630 DATA D8, C6,  6,  3,  3,  1, B4, 40, B9, 46,  0, BA,  3,  1, CD, 21,   54A
  55. 640 DATA EB, D6, B4, 3E, 8B, 1E, 4B,  1, CD, 21, C3,  0, A2, 5B,  3, E8,   741
  56. 650 DATA ED,  0, B9,  4,  0, E8, FD,  1, 56, 8B, F7, E8, E1,  0, B9,  3,   7ED
  57. 660 DATA  0, E8, F1,  1, 5E, E8, F8,  0, B9,  5,  0, E8, E7,  1, A0, 5B,   7A1
  58. 670 DATA  3, B3,  1, E8, 42,  1, B9,  6,  0, E8, D9,  1, B0,  D, F6, 26,   63C
  59. 680 DATA 5B,  3, 8B, D0, 81, C2, DD,  5, B4, 40, 8B, DA, 8A,  F, 32, ED,   7EF
  60. 690 DATA 51, 8B, 1E, 4B,  1, 42, CD, 21, 5B, 83, 3E, 55,  1,  0, 74, 1F,   47B
  61. 700 DATA B9,  C,  0, 2B, CB, 83, C1,  5, E8, AA,  1, BB, AF,  6, 8A,  F,   6A0
  62. 710 DATA 32, ED, E3,  B, B4, 40, 8B, 1E, 4B,  1, BA, B0,  6, CD, 21, E8,   73C
  63. 720 DATA 83,  1, C3, 4A, 61, 6E, 46, 65, 62, 4D, 61, 72, 41, 70, 72, 4D,   5FD
  64. 730 DATA 61, 79, 4A, 75, 6E, 4A, 75, 6C, 41, 75, 67, 53, 65, 70, 4F, 63,   629
  65. 740 DATA 74, 4E, 6F, 76, 44, 65, 63, 31, 39, E8, 59,  1, B4, 2A, CD, 21,   62B
  66. 750 DATA 51, 52, 8A, C2, 32, DB, E8, BF,  0, B9,  1,  0, E8, 56,  1, 5A,   6F6
  67. 760 DATA FE, CE, 8A, CE, 32, ED, BA, D3,  3, E3,  5, 83, C2,  3, E2, FB,   9E0
  68. 770 DATA B4, 40, 8B, 1E, 4B,  1, B9,  3,  0, CD, 21, B9,  1,  0, E8, 34,   569
  69. 780 DATA  1, B4, 40, B9,  2,  0, BA, F7,  3, CD, 21, 59, 81, E9, 6C,  7,   688
  70. 790 DATA 8A, C1, 32, DB, E8, 81,  0, E8,  B,  1, E8,  8,  1, C3, 3A, 8A,   72D
  71. 800 DATA 44,  1, B3,  1, E8, 71,  0, B4, 40, 8B, 1E, 4B,  1, B9,  1,  0,   4F5
  72. 810 DATA BA, 4E,  4, CD, 21, 8A,  4, 32, DB, E8, 5C,  0, C3,  0,  0,  0,   59C
  73. 820 DATA 8A,  5, 8A, 1C, 8A, 4D,  1, 8A, 54,  1, 8A, 65,  2, 8A, 7C,  2,   4E5
  74. 830 DATA 3A, E7, 73,  5, 80, C4, 3C, FE, C8, 3A, C3, 7D,  4,  4, 3C, FE,   79B
  75. 840 DATA C9, 3A, CA, 7D,  3, 80, C1, 18, 2A, E7, 88, 26, 6F,  4, 2A, C3,   6C5
  76. 850 DATA A2, 6D,  4, 2A, CA, 88,  E, 6E,  4, BE, 6D,  4, E8, A0, FF, B4,   779
  77. 860 DATA 40, 8B, 1E, 4B,  1, B9,  1,  0, BA, 4E,  4, CD, 21, 8A, 44,  2,   4B9
  78. 870 DATA 32, DB, E8,  3,  0, C3,  0,  0, D4,  A,  5, 30, 30,  A, DB, 74,   557
  79. 880 DATA  7, 80, FC, 30, 75,  2, B4, 20, 86, E0, A3, C6,  4, B4, 40, 8B,   750
  80. 890 DATA 1E, 4B,  1, B9,  2,  0, BA, C6,  4, CD, 21, C3, 53, 54, 41, 52,   594
  81. 900 DATA 54, 20, 20, 20, 20, 20, 45, 4E, 44, 20, 20, 20, 20, 20, 45, 4C,   2FC
  82. 910 DATA 41, 50, 53, 45, 44, 20, 20, 20, 20, 4C, 45, 56, 45, 4C, 20, 20,   3A5
  83. 920 DATA 20, 20, 50, 52, 4F, 47, 52, 41, 4D, 20, 20, 20, 20, 20, 20, 20,   338
  84. 930 DATA 20, 20, 20, 50, 41, 52, 41, 4D, 45, 54, 45, 52, 53,  D,  A, 3D,   3A8
  85. 940 DATA B4, 40, 8B, 1E, 4B,  1, B9, 43,  0, BA, EC,  4, CD, 21, B9, 4F,   685
  86. 950 DATA  0, 51, B4, 40, B9,  1,  0, BA, 2F,  5, CD, 21, 59, E2, F2, E8,   6F0
  87. 960 DATA  3,  0, C3,  D,  A, B4, 40, 8B, 1E, 4B,  1, B9,  2,  0, BA, 53,   48E
  88. 970 DATA  5, CD, 21, C3, 20, 51, B4, 40, 8B, 1E, 4B,  1, B9,  1,  0, BA,   584
  89. 980 DATA 64,  5, CD, 21, 59, E2, EE, C3, B4, 2C, CD, 21, 8B, 1E, 53,  1,   70E
  90. 990 DATA D1, E3, D1, E3, 89, 8F, 5F,  6, 88, B7, 61,  6, C3, 55, 73, 61,   877
  91. 1000 DATA 67, 65, 3A, 20, 4C, 4F, 47, 20, 5B, 66, 69, 6C, 65, 73, 70, 65,   56B
  92. 1010 DATA 63, 5D, 20, 5B, 2F, 55, 5D, 24, 4E, 6F, 74, 20, 49, 6E, 73, 74,   52F
  93. 1020 DATA 61, 6C, 6C, 65, 64, 24, 43, 61, 6E, 6E, 6F, 74, 20, 55, 6E, 69,   5D5
  94. 1030 DATA 6E, 73, 74, 61, 6C, 6C, 24, 41, 6C, 72, 65, 61, 64, 79, 20, 49,   5DD
  95. 1040 DATA 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 49, 6E, 76, 61, 6C, 69, 64,   642
  96. 1050 DATA 20, 46, 69, 6C, 65, 73, 70, 65, 63, 24, 55, 6E, 69, 6E, 73, 74,   5F0
  97. 1060 DATA 61, 6C, 6C, 65, 64, 24, 5C, 55, 53, 41, 47, 45, 2E, 4C, 4F, 47,   507
  98. 1070 DATA  D,  6, 3C, 69, 64, 6C, 65, 3E,  0, FC, C7,  6,  0,  1,  0,  0,   3F5
  99. 1080 DATA 33, DB, 8C, C8, 43, 8E, C3, 3B, C3, 74, 11, BE,  0,  1, 8B, FE,   7C1
  100. 1090 DATA B9, 10,  0, F3, A6, 75, ED, C6,  6,  8,  6,  1, BE, 81,  0, AC,   68A
  101. 1100 DATA 3C, 20, 74, FB, 3C,  D, 74, 35, 3C, 2F, 75, 34, AC, 24, DF, 3C,   5BC
  102. 1110 DATA 55, 74,  C, BA, 8D,  5, B4,  9, CD, 21, B8,  1, 4C, CD, 21, BA,   679
  103. 1120 DATA A8,  5, 80, 3E,  8,  6,  0, 74, ED, E8, A9,  0, BA, B6,  5, 72,   652
  104. 1130 DATA E5, BA, EA,  5, B4,  9, CD, 21, B8,  0, 4C, CD, 21, BE, F7,  5,   7E5
  105. 1140 DATA BA, C7,  5, 80, 3E,  8,  6,  0, 75, CC, 4E,  E,  7, BF, 5E,  8,   51B
  106. 1150 DATA E8, B3,  0, BA, D9,  5, 72, BE, BF, 5E,  8, 32, C0, B9, 50,  0,   783
  107. 1160 DATA F2, AE, 4F, 80, 7D, FF, 5C, 75,  B, BE, F7,  5, B9,  9,  0, F3,   836
  108. 1170 DATA A4, 32, C0, AA, BA, 5E,  8, E8, 5A, FC, BA, D9,  5, 72, 97, E8,   927
  109. 1180 DATA A0, FC, E8, C3, FE, B8,  0, 30, CD, 21, 86, E0, A3, 4D,  1, B8,   92A
  110. 1190 DATA 21, 35, CD, 21, 89, 1E, 4F,  1, 8C,  6, 51,  1, B8, 21, 25, BA,   4D7
  111. 1200 DATA 6D,  1, CD, 21, A1, 2C,  0, 8E, C0, B4, 49, CD, 21,  E,  7, BE,   635
  112. 1210 DATA 5E,  8, BF, 8D,  5, AC, AA,  A, C0, 75, FA, BE,  1,  6, BF, DD,   7A7
  113. 1220 DATA  5, B9,  7,  0, F3, A4, B4,  9, BA,  3,  1, CD, 21, B8,  0, 31,   5AE
  114. 1230 DATA BA, 73,  0, CD, 21, 8C, C1, B8, 21, 35, CD, 21, 8C, C0, 3B, C1,   7AC
  115. 1240 DATA 75, 1B, 8E, C1, B4, 49, CD, 21, 72, 13, 1E, B8, 21, 25, 26, C5,   656
  116. 1250 DATA 16, 4F,  1, CD, 21, 1F, 26, F7, 16,  0,  1, F8, C3, F9, C3,  0,   61E
  117. 1260 DATA  0,  0,  0,  0,  0,  0, 89, 3E, 31,  7, 56, B4, 19, CD, 21, A2,   3B2
  118. 1270 DATA 33,  7, B4, 47, 32, D2, BE,  F,  8, CD, 21, 5E, 80, 7C,  1, 3A,   591
  119. 1280 DATA 75,  5, AD, 24, DF, EB,  7, A0, 33,  7,  4, 41, B4, 3A, AB, 89,   65D
  120. 1290 DATA 36, 2F,  7, 33, C9, AC, 3C,  D, 74,  D, 3C, 20, 74,  9, 3C, 5C,   44F
  121. 1300 DATA 75, F3, 8B, CE, 49, EB, EE, 89,  E, 34,  7, 8B, 36, 2F,  7,  B,   6B7
  122. 1310 DATA C9, 74,  C, 3B, F1, 74,  7, 2B, CE, 49, E3,  2, F3, A4, A4, 32,   784
  123. 1320 DATA C0, AA, B4,  E, 8B, 3E, 31,  7, 8A, 15, 80, EA, 41, CD, 21, 80,   6E5
  124. 1330 DATA 7D,  2,  0, 74,  D, B4, 3B, 8B, 16, 31,  7, 83, C2,  2, CD, 21,   4FD
  125. 1340 DATA 72, 5B, B4, 47, 8B, 36, 31,  7, 8A, 14, 80, EA, 40, 83, C6,  3,   655
  126. 1350 DATA C6, 44, FF, 5C, CD, 21, 72, 45, B4,  E, 8A, 16, 33,  7, CD, 21,   694
  127. 1360 DATA B4, 3B, BA,  E,  8, CD, 21, 72, 34, 8B, 3E, 31,  7, 32, C0, B9,   5FF
  128. 1370 DATA 50,  0, F2, AE, 4F, 80, 7D, FF, 5C, 74,  3, B0, 5C, AA, 8B, 36,   785
  129. 1380 DATA 34,  7,  B, F6, 75,  6, 8B, 36, 2F,  7, EB,  1, 46, AC, 3C,  D,   4D5
  130. 1390 DATA 74,  7, 3C, 20, 74,  3, AA, EB, F4, 32, C0, AA, F8, C3, 5C,  0,   78A
  131. 1400 DATA 174387
  132.